home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2000 November / Maximum CD 2000 Nov.iso / AofE-Conquerers / age2xtrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000016.bina < prev    next >
Text File  |  2000-07-18  |  1KB  |  58 lines
  1. ;make the castle
  2. (defrule
  3.     (goal castle-attempt NO)
  4.     (current-age == imperial-age)
  5.     (stone-amount > 400)
  6.     (nor 
  7.         (goal wonder-attempt POSSIBLE)
  8.         (goal wonder-attempt YES)
  9.     )
  10. =>
  11.     (set-goal castle-attempt YES)
  12. )
  13.  
  14. (defrule
  15.     (stone-amount > 800)
  16.     (nor 
  17.         (goal wonder-attempt POSSIBLE)
  18.         (goal wonder-attempt YES)
  19.     )
  20.     (building-type-count-total castle < five-percent-pop)
  21.     (can-build-with-escrow castle)
  22. =>
  23.     (set-goal castle-attempt YES)
  24. )
  25.  
  26. (defrule
  27.     (goal castle-attempt YES)
  28.     (can-build-with-escrow castle)
  29. =>
  30.     (release-escrow stone)
  31.     (set-strategic-number sn-percent-civilian-builders 75)
  32.     (set-strategic-number sn-cap-civilian-builders 15)
  33.     (set-strategic-number sn-percent-civilian-gatherers 25)
  34.     (build castle)
  35.     (set-goal castle-attempt 2)
  36. )
  37.  
  38. (defrule
  39.     (building-type-count castle > 0)
  40.     (or
  41.         (not (goal castle-attempt 2) )
  42.         (strategic-number sn-cap-civilian-builders == 15)
  43.     )
  44. =>
  45.     (set-strategic-number sn-percent-civilian-builders 10)
  46.     (set-strategic-number sn-cap-civilian-builders 8)
  47.     (set-strategic-number sn-percent-civilian-gatherers 90)
  48.     (set-goal castle-attempt 2)
  49. )
  50.  
  51. (defrule
  52.     (goal castle-attempt 2)
  53.     (building-type-count-total castle == 0)
  54. =>
  55.     (set-goal castle-attempt YES)
  56. )
  57.  
  58.